%DeclareBeg  $$
%New Data
%New Flag
%New Compare
%New text
%New count
%New poDate
%DeclareEnd

;//!
%Set $$Compare = "0"
%While($$Compare == 0)
88000000;21;1;
%Delay 5000
%RunCommand(234,"000000",0)
%Set $$Data = %Ret0
%Oper($$Data,"58",10,$$Compare)
%If ($$Compare == 1)
%Then
F3000000;
%Delay 25000
%RunCommand(234,"000000",0)
%Set $$Data = %Ret0
%Print $$Data
%Oper($$Data,"78",10,$$Compare)
%Else
%EndIf
%Oper($$Data,"78",10,$$Compare)
%EndWhile

;//text raport
%RunCommand(96,"000000")
;//software
%RunCommand(128,"000000")
%Set $$count = %Ret1
%Set $$poDate = %Ret3
%Oper(":",$$count,5,$$text)
%Oper($$text,"  ",5,$$count)
%Oper($$count,$$poDate,5,$$Data)
%RunCommand(97,"000000",$$Data)
%Print $$Data
;//activation PO
%Oper(3,0,18,$$Data)
%Oper($$Data,1,17,$$Data)
%Print $$Data
%Oper($$Data,"",10,$$Compare)
%If ($$Compare == 0)
%Then
%RunCommand(97,"000000"," ")
%Else
%RunCommand(97,"000000","%JcMIMH !!!")
%EndIf
;//indicator
%Oper(0,0,18,$$Data)
%Oper($$Data,2,17,$$Data)
%Print $$Data
%Oper($$Data,"2",10,$$Compare)
%If ($$Compare == 1)
%Then
%RunCommand(97,"000000","%JcMIMH ")
%Else
%RunCommand(97,"000000"," ")
%EndIf
%RunCommand(40,"000000")
%Set $$Data = %Ret0
%Oper(" : ",$$Data,5,$$text)
%RunCommand(97,"000000",$$text)
;//status
%RunCommand(160,"000000")
%Set $$Data = %Ret8
%Oper($$Data,"000000",10,$$Compare)
%If ($$Compare == 1)
%Then
%RunCommand(97,"000000","%JcMI ")
%Else
%Oper("%JcMCMIMH :",$$Data,5,$$text)
%Oper($$text," ",5,$$text)
%Set $$Data = %Ret9
%Oper($$text,$$Data,5,$$text)
%RunCommand(97,"000000",$$text)
%EndIf
;//payment, they depend on $$compare from previous block
%If ($$Compare == 1)
%Then
;//%Set $$Data = " :"
;//%RunCommand(97,"000000",$$Data)
%RunCommand(97,"000000","%JcMCMI :")
%Set $$count = "0"
%Else
%Set $$count = "10"
%EndIf
%While ($$count < 10)
%RunCommand(46,"000000",$$count)
%Set $$Data = %Ret1
%Oper($$Data,0,13,$$Compare)
%If ($$Compare == 1)
%Then
%Oper("). ",$$Data,5,$$Data)
%Oper($$count,$$Data,5,$$Data)
%RunCommand(97,"000000",$$Data)
%Else
%EndIf
%Oper($$count,1,0,$$count)
%EndWhile
;//network
%RunCommand(97,"000000","%JcMCMI :")
A6000000;3;;;
;//user
;//advertising
%RunCommand(97,"000000","%JcMCMI :")
%Set $$count = "10"
%While ( $$count < 14)
%Print $$count = "10"
%RunCommand(35,"000000",$$count)
%Set $$Data = %Ret0
%Oper($$Data,0,13,$$Compare)
%If ($$Compare == 1)
%Then
%RunCommand(97,"000000",$$Data)
%Else
%EndIf
%Oper($$count,1,0,$$count)
%EndWhile
%RunCommand(101,"000000",0)
;//END OF TEST BLOCK